home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Tools / GCMenu.g < prev    next >
Text File  |  1998-10-22  |  2KB  |  81 lines
  1. G4C
  2.  
  3. ; -----------------------------------------------------------------
  4. ; A general purpose menu which can be shared among guis
  5. ; -----------------------------------------------------------------
  6.  
  7. xMenu Project 'New Gui..' '' N          ; new gui
  8. guiload guis:tools/guiedit.gc
  9. gosub guiedit.gc newfile
  10. if $$ret.0 = 1                          ; a gui was chosen
  11.    guiopen guiedit.gc
  12. endif
  13.  
  14. xmenu Project Gui.. '' ''               ; use the status requester
  15. status
  16.  
  17. xMenu Project BARLABEL '' ''
  18.  
  19. xMenu Project #guis:Gui4Cli '' ''
  20. ezreq 'Gui4Cli\n(c)1995-98 D.Keletsekis\ndck@hol.gr' 'OK' ''
  21.  
  22. xMenu Project 'Quit Gui4Cli' '' ''
  23. quit
  24.  
  25. ; --------------- guis menu
  26.  
  27.  
  28. xMenu Guis "File Manager   " '' ''
  29. guiload guis:dir/dir.gc
  30. guiopen dir.gc
  31.  
  32. xMenu Guis FSearch.gc '' ''
  33. guiload guis:g4c/fsearch/fsearch.gc Sys:
  34.  
  35. xMenu Guis Rep.gc '' ''
  36. guiload guis:g4c/rep.gc
  37.  
  38. xMenu Guis CedBar.gc '' ''
  39. guiload guis:g4c/ced/cedbar.gc
  40.  
  41. xMenu Guis "BARLABEL" '' ''
  42.  
  43. xMenu Guis Demo '' ''
  44. guiload guis:demo.gc
  45. guiopen demo.gc
  46.  
  47. xMenu Guis Tutorials '' ''
  48. guiload guis:docs/tutorials.gc
  49. guiopen tutorials.gc
  50.  
  51. ; --------------- Help menu
  52.  
  53. xMenu Help "Gui4Cli Guide " '' ''
  54. run 'multiview guis:docs/gui4cli.guide'
  55.  
  56. xMenu Help "BARLABEL" '' ''
  57.  
  58. xMenu Help "Gui4Cli ReadMe" '' ''
  59. guiload guis:tools/read.gc guis:readme.now
  60.  
  61. xMenu Help "Command List" '' ''
  62. guiload guis:tools/read.gc guis:docs/PrintMe
  63.  
  64. xMenu Help "Version Changes" '' ''
  65. guiload guis:tools/read.gc guis:docs/Changes
  66.  
  67. xMenu Help "BARLABEL" '' ''
  68.  
  69. xMenu Help "CLI Commands Guide  " '' ''
  70. run 'multiview guis:docs/CLICommands.guide'
  71.  
  72. xMenu Help "Routines Guide" '' ''
  73. run 'multiview guis:docs/Routines.guide'
  74.  
  75. xMenu Help "BARLABEL" '' ''
  76.  
  77. xMenu Help Tutorials.. '' ''
  78. guiload guis:docs/tutorials.gc
  79. guiopen tutorials.gc
  80.  
  81.